home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mctest10 < prev    next >
Lisp/Scheme  |  1998-10-26  |  2KB  |  64 lines
  1. ; tutorial example 10 - mctest10
  2.  
  3. (initdef)
  4. (defsym a '(b c a))
  5. (defsym b '(f e))
  6. (defsym c '(b a))
  7. (defsym d '(a g))
  8.  
  9. (def-symbol
  10.   sax (symbol-retrograde (gen-trans a 4))
  11.   clarinet (find-unique 
  12.              (symbol-retrograde 
  13.                (gen-trans d 4)))
  14.   trumpet (find-change
  15.             (symbol-retrograde
  16.              (gen-trans c 4)))
  17.   violin (symbol-retrograde (gen-trans d 4))
  18.   piano  (symbol-mix
  19.            (gen-trans a 2) (gen-trans b 2) 
  20.            (gen-trans c 2) (gen-trans d 2))
  21.   bass (symbol-retrograde
  22.          (find-common
  23.            (gen-trans a 4) (gen-trans c 4)))
  24.   congas (symbol-retrograde
  25.            (fill-pause 
  26.              (find-common
  27.                (gen-trans a 4) (gen-trans c 4)) 
  28.              '(t u tu s u u s u u tu s)))
  29. )
  30.  
  31. (def-length
  32.   sax '(1/16)
  33.   clarinet '(1/16)
  34.   trumpet '(1/16)
  35.   violin '(1/16)
  36.   piano '(1/4 1/16 1/8 1/16 -1/8 1/8)
  37.   bass '(1/8 1/8 1/4 1/8)
  38.   congas '(1/16 1/32 1/32 1/16 1/32 1/16 1/32)
  39. )
  40.  
  41. (setq tonals (activate-tonality (whole-tone c 5) (chromatic c 6)))
  42. (setq tonals1 (activate-tonality (chromatic c 6) (whole-tone c 5)))
  43. (setq chords (activate-tonality
  44.                (c aug 7 1 4) ( f# aug 9 1 3) (e min maj7 1 3)))
  45. (setq bass (activate-tonality (whole-tone c 3) (chromatic c 4)))
  46.  
  47. (compile-song-p "ccl;output:" 1/8 "part10"
  48.  
  49. ;  BARS              |-------|-------|-------|-------|
  50. changes   tonals    "            .   .  .      .    ."
  51. changes2  tonals1   "    .   .    .   .  .  .     . ."
  52. changes3  chords    "     . . .    ..  .  .   .   .. "
  53. changes4  bass      "  .   .  . .        . . .   . . " 
  54. sax       changes   "--     ----- --- ---    ----- --"
  55. clarinet changes2   "  ---  ---   -- - --- --- --- --"
  56. trumpet  changes2   "    ---- ---   - - --   --- -- -"           
  57. violin   changes    "      -----  - - - --  - - - - -" 
  58. piano    changes3   " - -------   ---  -- ---  ---- -"
  59. bass     changes4   "------------         -----------"
  60. congas   mt-32      "------------         -----------"
  61. )
  62.  
  63.  
  64.